home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / autofx / render_foreign.ifx.pre < prev    next >
Text File  |  2004-08-03  |  3KB  |  106 lines
  1. /*
  2.  * Render_Foreign.ifx.pre
  3.  * Written by Thomas Krehbiel
  4.  *
  5.  * Render to a Foreign display format.
  6.  *
  7.  * Inputs:
  8.  *    Word(Arg(1),1) = Sequence number
  9.  *    Word(Arg(1),2) = Total number of frames (N)
  10.  *
  11.  * Returns:
  12.  *    0 if successful, non-zero on failure
  13.  *
  14.  */
  15.  
  16. OPTIONS RESULTS
  17.  
  18. base = 'Autofx_RendForeign_'
  19.  
  20. dithtype = GETCLIP(base||'DithType')
  21. dithdir  = GETCLIP(base||'DithDir')
  22. ditherr  = GETCLIP(base||'DithErr')
  23. colors   = GETCLIP(base||'Colors')
  24. monitor  = GETCLIP(base||'Monitor')
  25. horiz    = GETCLIP(base||'Horiz')
  26. vert     = GETCLIP(base||'Vert')
  27. lockpal  = GETCLIP(base||'LockPal')
  28.  
  29. IF dithtype = "" THEN dithtype = 1
  30. IF dithdir  = "" THEN dithdir  = 2
  31. IF ditherr  = "" THEN ditherr  = 0
  32. IF colors   = "" THEN colors   = 7
  33. IF monitor  = "" THEN monitor  = 0
  34. IF horiz    = "" THEN horiz    = 1
  35. IF vert     = "" THEN vert     = 1
  36. IF lockpal  = "" THEN lockpal  = 0
  37.  
  38. Gadget.1 = 'CYCLE 100  5 90 12 "Dither:"' dithtype '"None/Floyd/FloydR/EDD/Order"'
  39. Gadget.2 = 'CYCLE 200  5 90 12 " "' dithdir '"L-to-R/R-to-L/ZigZag"'
  40. Gadget.3 = 'CYCLE 300  5 90 12 " "' ditherr '"None/Low/Medium/High"'
  41. Gadget.4 = 'CYCLE 300 20 90 12 "Colors:"' colors '"2/4/8/16/32/64/128/256/HAM/HAM8"'
  42. Gadget.5 = 'CYCLE 100 34 90 12 "Mode:"' monitor '"Default/NTSC/PAL/VGA/Euro36/Euro72/Super72/DBLNTSC/DBLPAL"'
  43. Gadget.6 = 'CYCLE 200 34 90 12 " "' horiz '"Lores/Hires/S-Hires"'
  44. Gadget.7 = 'CYCLE 300 34 90 12 " "' vert '"No Lace/Lace"'
  45. Gadget.8 = 'CHECK 100 50 26 11 "Lock Palette?"' lockpal
  46. Gadget.9 = 'END'
  47.  
  48. NewComplexRequest '"Foreign Render Module Settings"' Gadget 410 68
  49. IF rc ~= 0 THEN EXIT rc
  50.  
  51. dithtype = result.1
  52. dithdir  = result.2
  53. ditherr  = result.3
  54. colors   = result.4
  55. monitor  = result.5
  56. horiz    = result.6
  57. vert     = result.7
  58. lockpal  = result.8
  59.  
  60. colorarray.0 = 2
  61. colorarray.1 = 4
  62. colorarray.2 = 8
  63. colorarray.3 = 16
  64. colorarray.4 = 32
  65. colorarray.5 = 64
  66. colorarray.6 = 128
  67. colorarray.7 = 256
  68. colorarray.8 = 'HAM'
  69. colorarray.9 = 'HAM8'
  70.  
  71. monarray.0 = 'DEFAULT'
  72. monarray.1 = 'NTSC'
  73. monarray.2 = 'PAL'
  74. monarray.3 = 'VGA'
  75. monarray.4 = 'EURO36'
  76. monarray.5 = 'EURO72'
  77. monarray.6 = 'SUPER72'
  78. monarray.7 = 'DBLNTSC'
  79. monarray.8 = 'DBLPAL'
  80.  
  81. horzarray.0 = 'LORES'
  82. horzarray.1 = 'HIRES'
  83. horzarray.2 = 'SUPERHI'
  84.  
  85. vertarray.0 = 'NOLACE'
  86. vertarray.1 = 'LACE'
  87.  
  88. SetRender Foreign
  89. IF rc ~= 0 THEN EXIT rc
  90.  
  91. Render 'Colors' colorarray.colors
  92. Render 'Dither' dithtype dithdir ditherr
  93. Render 'Monitor' monarray.monitor
  94. Render 'Mode' horzarray.horiz vertarray.vert
  95.  
  96. CALL SETCLIP(base||'DithType', dithtype)
  97. CALL SETCLIP(base||'DithDir', dithdir)
  98. CALL SETCLIP(base||'DithErr', ditherr)
  99. CALL SETCLIP(base||'Colors', colors)
  100. CALL SETCLIP(base||'Monitor', monitor)
  101. CALL SETCLIP(base||'Horiz', horiz)
  102. CALL SETCLIP(base||'Vert', vert)
  103. CALL SETCLIP(base||'LockPal', lockpal)
  104.  
  105. EXIT
  106.